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Introduction 


The Z80 Monitor makes it possible to control 
computers which use the CROMEMCO ZPUtm from a 
terminal keyboard. It includes executive commands to 
examine and change memory, make a binary or an 
ASCII dump of memory, move and compare blocks 
of memory, output a byte of data to any port, read, 
write, and punch nulls on binary paper tapes, program 
2708 and 2704 PROMs using the CROMEMCO BYTE- 
SAVER, and initialize and control both serial ports on 
the CROMEMCO TUART. 

Transfer of contro] to a program in memory can 
be commanded from the keyboard with up to five 
breakpoints set and with the initial contents of the 
ZPU registers specified. When a breakpoint is en- 
countered during execution, control is transferred 
back to the monitor and the contents of all 22 ZPU 
registers are stored. These register values can be exam- 
ined and changed before execution of the program 
is resumed. 


Entry Points 


The Z80 Monitor has three entry points. A 
cold-start entry at EQOOO hex selects bank O on 
CROMEMCO memory boards and UART A on the 
CROMEMCO TUART. It initializes the baud rate of 
the UART to match that of the terminal being used. In 
addition, it saves the contents of the Z80 registers I, 
N (IFF), S (SP) , X (IX) , Y (TY), A', B',C', D', E', 
F' , and H' (HL'’) in the user-register area which is part 
of the system stack. (If the Z80 stack pointer is point- 
ing to RAM, then all registers except A and P (PC) will 
be saved.) The contents of these registers are restored 
when the monitor is exited by means of the GO 
command. 

The warm-start entry point at E008 hex is pro- 
vided so that the monitor can be re-entered without 
affecting the memory banks or the UART. The same 
registers are saved as for the cold-start entry point. 

The third entry point is used by the break- 
point facility. Entry here saves the contents of all 
registers. Memory banks and UART are unaffected. 


System Stack 


The monitor does not require the user to 
address a RAM board at a special place in memory for 
its stack and working storage area. (However, if the 
breakpoint facility is used, there must be either RAM 
at locations 30, 31, and 32 hex or PROM with the data 
C3, 45, EO hex at those locations.) The monitor finds 
the highest page of RAM active in the machine and 
places its stack and temporary storage area there. At 
least 60H or 96 bytes of this page must be reserved for 
system use. If the multiple command facility is used, 
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each additional command in a command line requires 
an additional 20 hex or 32 bytes stack room. (See 
Multiple Commands.) 


Command Format 


The Z80 Monitor is controlled by one and two- 
character commands from the terminal keyboard. The 
format is free-form with respect to spaces. 

In the following, DM is the Display Memory com- 
mand and S is the Swath operator (see below). The 
four examples are equivalent commands. They display 
the contents of 100 hex bytes of memory beginning 
with location 1000 hex. (‘ (CR) ’ indicates a carriage 
return.) 


DM1i000 10FF (CR) 
DM1000S 100 (CR) 
D M_ 1000 10FF (CR) 
D M 1000 S 100 (CR) 


When entering an address as a operand, only the 
last four digits typed in are retained. For example, 
‘321000’ is read as ‘1000’. Therefore, if a wrong digit 
is entered, continue typing until the last four digits are 
correct. 

Only the last two digits typed are retained when a 
two-digit number such as a data byte is entered. 


Swath Operator 


There are two ways to specify the address 
range of many commands. The first is to simply list 
the beginning and ending addresses (and, where 
appropriate, the destination address). For example, the 
first command below programs the range 0 through 
13FF into PROMs starting at E400. The second com- 
mand displays the contents of memory between 
addresses E400 and E402. 


PO 13FF E400 
DME400 E402 


Another way to do the same thing is to use the 
Swath operator, S, to specify the width of the address 
range rather than state the ending address explicitly. 


PO $1400 E400 
DM E400S3 


Multiple Commands: 
The After Operator 


The After operator, ‘ < ’, can be used to place 
more than one command on a command line. All of 
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the commands on the command line are executed 
before the monitor returns with its prompt ‘ : ’, for 
anew command. 

With this feature, the monitor can write an area 
of memory onto paper tape preceded and followed by 
a sequence of nulls without any undesirable carriage- 
returns or prompts inserted by the monitor. 





Example 1 


Assume that the terminal being used is a teletype- 
writer with paper tape punch. In order to write the 
contents of 400 hex bytes starting at 100 hex with a 
leader of 95 hex nulls and a trailer of 80 nulls, type: 


:N80 < :W100 S 400 <:N 95 (CR) 


where the colons are prompts provided by the monitor. 
Tum on the paper tape punch after typing the carriage- 
return in order to avoid writing it onto the tape. 


There are several points to be made about the use 
of the After operator: 

(a) The order of execution of the commands is 
from right to left. Hence, the name ‘After’ and the 
shape ‘< ’, 

(b) The After operator is logically equivalent to a 
carriage-return. Anywhere a carriage-return can reason- 
ably appear in a command, the After operator may be 
used instead. However, no commands in the line are 
executed until an actual carriage-return is typed. 

(c) If any of the GO commands appears in a 
multiple-command line, it must be the last command 
executed, i.e., the first command typed. 

(d) Each additional command on a line adds from 
10 to 20 hex bytes to the system stack size. 


Example 2 


Assume that we are using a CROMEMCO TUART 
I/O card with a console connected to UART A and 
with a paper tape reader and punch connected to the 
input and output, respectively, of UART B. Assume 
that the baud rate of UART B has already been set to 
that of the reader and punch. (See Baud Rates pg. 3.) 
We can copy a paper tape by switching the current 
UART to B, reading the tape into a memory buffer, 
writing a leader, writing the buffer to the punch, and 
finally switching the current UART back to A, the 
console, by typing: 


:UA <:W0S2000 < :N80 < :ROS2000 < :UB (CR) 


In this case, we can leave the reader and punch on 
all the time. There is no question of a carriage-return 
from the command line being punched onto the paper 
tape since two different UARTs are involved. 

Perhaps we forgot to write nulls as a trailer to the 
output tape. After the prompt, ‘ : ’, again appears on 
the console, we can rectify this by typing: 


:UA <:N 80 <:U B (CR) 


where, again, all colons are provided by the monitor. 
Example 2 


Suppose we wish to make three copies of the 
same PROM. Assume that the source is in RAM at 
location 0 and that we want three identical copies in 
PROMs located at E400, E800, and ECOO hex. The 
following command line will accomplish this: 


:P0S400 ECOO < :P0S400 E800 < :P0S400 E400 (CR) 


Example 4 


Either of the following will initialize the baud 
rate of a terminal connected to UART B of the 
TUART: 


:1 <:UB (CR) 
:UA<:I <:UB (CR) 


After entering one of these commands on the 
console connected to UART A, push CARRIAGE- 
RETURN on the other terminal until the monitor 
prompt ‘: ’ appears. 


Example 5 


Assume that we would like to take a brief nap to 
refresh ourselves but have no alarm clock. Assume 
further that two beeps of the console bell spaced 2.1 
seconds apart are sufficient to wake us and that the 
console can run at 800 baud. Since the Display Mem- 
ory command takes 63 characters to display 10 hex or 
16 bytes of memory, at 300 baud it takes 2.1 seconds 
or 0.035 minutes to display 10 hex bytes. 


Number of : : 
Bytes (hex) | Time (minutes) 





First, we re-initialize the UART by typing the 
following: 


:1 (CR) 


Set the console baud rate to 300 and push the 
CARRIAGE-RETURN until the monitor issues its 
prompt, ‘:’. 

To ring the bell, output 7 to port 1. For a nap of 
14 minutes: 


:0 7 1 <:DMO0S10 < :07 1 < :DM0S1900 (CR) 
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Errors and Escapes 


When the monitor detects an error condition, the 
command is aborted, all breakpoints are cleared, and a 
‘?’ is printed followed by the prompt ‘ : ’ for the 
next command. 

Any command may be aborted from the keyboard 
either when the monitor is requesting further input, or 
during print-out, by depressing either the ESCAPE or 
the ALT MODE key. CONTROL-SEMI-COLON, 
CONTROL-SHIFT-‘K’, and ‘ }’ may also work. 


Input and Output 


The monitor assumes that a data transfer occurs 
on I/O port 1. Status flags are transmitted over input 
port 0. The data-available flag is on bit 6 of input port 
0. The transmitter-buffer-empty flag is on bit 7 of 
input port 0. Both flags are active high. 

To use the CROMEMCO TUART with the 
monitor, set switches 1, 7, and 9 of the 10-position 
TUART switch OFF, all others ON. The currently 
selected UART uses I/O port 1 for date transfer and 
input port 0 for status flags. The UART which is not 
current uses I/O port 51 hex for date transfer and 
input port 50 hex for status flags. (The UARTs are 
selected by means of the UART command.) 

The following locations may be changed for dif- 
ferent I/O conventions: 


Status port number (00): EOOF, E020 

Input data port number (01): E014 

Output data port number (01): E027 
Input-data-available mask (40): E011 
Output-transmitter-bufferempty mask (80): E022 


For active-low status flags change locations E019 


and E379 from 28 hex to 20 hex and change location 
E120 from 20 hex to 28 hex. 


Baud Rates 
and UART Selection 


When the monitor is entered at E000 hex, the 
cold-start entry point, push CARRIAGE-RETURN 
until the monitor responds with: 


CROMEMCO ZM1.4 
The monitor is capable of selecting 19200, 9600, 


4800, 2400, 1200, 300, 150, or 110 baud when used 
with the CROMEMCO TUART I/O board. 


The maximum number of carriage-returns re- 
quired to select any of these baud rates is four. (Two 
carriage-returns are required for any UART with a 
fixed baud rate.) 


The baud rate can also be changed by using the 
Initialize command (see page 5). 


Some peripheral devices such as paper tape read- 
ers or punches may have no keyboards. The TUART 
baud rate can also be set by outputting a data byte 
from the following table to port 0 for the currently 
selected UART or to port 50 hex for the unselected 
UART. (To make UART B current, output 80 hex to 
port 4. For UART A, output 0 to port 54 hex. UART 
selection can also be accomplished by means of the 
monitor’s UART command, VU). 


Baud Rate Data Byte 






The baud rate can be octupled by outputting 10 
hex to port 2 for the selected UART or to port 52 
hex for the other UART. Outputting 0 to these ports 
brings the baud rate back to normal. 


Interrupts 


The monitor can be used to enable interrupts in 
the Z80. This is done by changing the value of the N 
register to 1 by using the Substitute Register com- 
mand, SN. (The N register stores the value of the Z80 
interrupt flip-flop at the time the monitor is entered. ) 
Then interrupts will be enabled when one of the Go 
commands is given. 

Note, however, that the interrupt mask registers 
on the TUART must have been set previously, either 
by a user program or by the monitor. (If this is not 
done, then an immediate interrupt will be generated 
because the print buffer is empty.) To mask out all 
interrupts output O to port 3 for the current UART 
and to port 53 hex for the other UART. 

The mask bit corresponding to each of the pos- 
sible interrupts is given in the following table: 
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Timer 1 
Timer 2 
Sens (external) 

Timer 3 

Receiver Data Available 
Transmitter Buffer Empty 
Timer 4 

Timer 5 or external 












NAWAWNHO 








For example, to allow only interrupts from the serial 
input port and from Timer 1 on the current UART, 
output 11 hex to port 3 and 0 to port 53 hex. 


Installing the Monitor 


The Cromemco Z80 Monitor is supplied in a 
2708 ROM. This ROM may be installed on any Cro- 
memco PROM memory board and must be addressed 
at E000 hex. 


Using the Monitor 


Set the power-on jump switch on the Cromemco 
ZPU card to E(1110 binary). Whenever the computer is 
reset, control will then immediately pass to the monitor. 

If the ZPU is used with the Cromemco TUART 
I/O card, depress CARRIAGE-RETURN two to four 
times. This will set the UART on the serial interface 
card to the baud rate of the terminal being used. 

When used with a serial interface card with baud 
rate fixed to that of the terminal, simply depress 
CARRIAGE-RETURN twice. The monitor will then 
respond: 


CROMEMCO ZM1.4 


followed by a prompt ‘: ’. The monitor is then ready 
to accept commands from the keyboard. 


COMMANDS. 


DISPLAY MEMORY 


[1] DM beginning-addr ending-addr (CR) 


or 
DM beginning-addr S swath-width (CR) 


The contents of memory are displayed in hexa- 
decimal form. Each line of the display is preceded by 
the address of its first byte. Example: 


:DM100 S3 
0100: C3 34 7F 


DISPLAY REGISTERS 


[2] DR (CR) 


When the monitor is re-entered from a breakpoint, 
the contents of all the Z80 registers are stored in an 
area called the user-register area. (When the monitor is 
entered via reset or the warm-start entry point, all 
registers except A, B, C, D, E, F, HL, and P are saved 
in the user-register area. However, if the stack pointer 
is pointing to RAM, then all but A and P will be saved.) 

DR causes these stored registers to be displayed 
in the following format: 


A=01 B=12 C=34 D=56 E=78 F=9A HL=BCDE 
I=FO N=00 P=1234 S=5678 X=9ABC Y=DEFO 
A'23 B'45 C'67 D'89 E'AB F'CD HL'EFO1 


If interrupts were enabled when the monitor was 
entered, then N=1. Otherwise, N=0. 


The flag registers, F and F', are packed as follows: 
S,Z,x,H_ x,P/V,N,C 


i.e., sign, zero, (unknown), half-carry, (unknown), 
parity or overflow, subtraction, and carry flags. 


GO 


[3] G(CR) 


The Z80 registers are loaded with the values saved 
in the user-register area. (These are the values displayed 
with the DR command.) Execution then resumes at 
the location contained in the user-program-counter, P. 


[4] G starting-addr (CR) 
This command is exactly like [3] except that the 


user-program-counter, P, is first loaded with starting- 
address. Thus, execution begins at starting-address. 


GO WITH BREAKPOINTS SET 


[5] G / breakpoint-addr-1 breakpoint-addr-2 ... (CR) 









































Z80 Monitor 





















































[6] Gstarting-addr /brkpt-addr-1 brkpt-addr-2. . . (CR) 


Commands [5] and ]6] are like [3] and [4], 
respectively, except that breakpoints are set at 
breakpoint-address-1, breakpoint-address-2, etc. 

When a breakpoint is encountered in the execu- 
tion of the user program, the monitor is re-entered. All 
registers are saved in the user register area (which is 
part of the system stack), the address of the breakpoint 
is printed, and all breakpoints are cleared (i.e., the user 
program is restored to its original state). Finally, the 
prompt, ‘: ’ is issued for the next command from the 
keyboard. Note the following about the use of break- 
points: 


(a) Breakpoints can only be set in programs resid- 
ing in RAM. This is because the monitor inserts a RST 
48 instruction (F7 hex) at each breakpoint location. 
(The original contents of these locations are saved so 
that they can later be restored.) 


(b) Up to five breakpoints can be set. If an 
attempt is made to set a sixth breakpoint, the monitor 
will print a question mark to indicate error, erase all 
breakpoints, and prompt for a new command. 


(c) When a breakpoint is set, the monitor inserts 
a 3-byte jump instruction at location 30 hex. This 
means that locations 30, 31, and 32 hex are not avail- 
able to the user program when breakpoints are used. 


(d) The monitor temporarily uses ten bytes on 
the user’s stack in executing a breakpoint. The area 
reserved for the user’s stack must, therefore, be at least 
ten bytes larger than that required for the user’s 
program. 


(e) If breakpoints are set in a program and the 
computer is reset and the monitor re-entered before 
any breakpoint is reached in the execution of the pro- 
gram, then the breakpoints will have to be removed 
from the program by means of the Substitute Memory 
command, SM. However, if any breakpoint is reached, 
all breakpoints are automatically cleared by the 
monitor. 


INITIALIZE BAUD RATE 
[7] I(CR) 


After the CARRIAGE-RETURN is typed, change 
the baud rate of the terminal to the desired value and 
then push the CARRIAGE-RETURN until the monitor 
responds with its prompt, esate 

The monitor is capable of selecting 19200, 9600, 
4800, 2400, 1200, 300, 150, or 110 baud when used 
with the Cromemco TUART 1/0 board. The maximum 
number of carriage-returns required to select any of 
these baud rates is four. 





























The command is particularly useful for setting 
the baud rate of the second serial port on the TUART. 
(See Multiple Commands.) 


MOVE 





[8] M source-addr source-end destination-addr (CR) 
or . 
M source-addr S swath-width destination-addr (CR) 


Move the contents of memory beginning with 
source-address and ending with source-end to destina- 
tion-address. After the move, the monitor verifies that 
source and destination are the same. This will result in 
a print-out of discrepancies which are not really errors 
after certain types of overlapping moves. However, this 
print-out can be terminated by depressing ESCAPE 
or ALT MODE. 

The Move command can be used to fill a block of 
memory with a constant. For example, to enter zeros 
between locations 100 and 108, use the Substitute 
Memory command to enter 0 at location 100, and then 
move 100 through 107 to 101: 


M100 107 101 
or 
M 100 S 8 101 


Care should be taken not to overwrite the system 
stack which resides in the top of active RAM. (See 
System Stack.) 


NULLS 
[9] N hex-number (CR) 


Write hex-number nulls to the current device. 
This command is used to punch leaders and trailers on 
paper tape. (See Multiple Commands.) 


OUTPUT 
[10] O data-byte port-number (CR) 


Outputs data to a port. One use of this command 
is to select banks on Cromemco memory boards. 
When the monitor is first entered on power-up or reset, 
it selects bank 0 and turns off all other memory banks. 

Either a software output or a monitor output to 
port 40 hex serves to change the bank selection. To 
select bank n, output a byte with bit n high. To select 
two banks, n and m, output a byte with both bits n 
and m high. 





Cn ot 








Output byte 
01 
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For example, the first command selects bank 5 and the 
second selects banks 4 and 5. 


O 20 40 
O 30 40 


PROGRAM 


[11] P source-addr source-end destination-addr (CR) 
or 
P source-addr S swath-width destination-addr (CR) 


Program from source-address through source-end 
into PROMS beginning at destination-address. 

If the length of the source is not a multiple of 
400H (1024 decimal) or if the destination does not 
begin at 400H boundary, the monitor will reject the 
command. (Multiples of 400H end in ‘000’, ‘400’, 
‘800’, or ‘C00’.) 

Any number of 2708 or 2704 PROMS can be 
programmed in the execution of one command as long 
as there are enough BYTESAVERS to contain them. 
Each PROM is verified with its source after all are pro- 
grammed and any discrepancies are printed out. If 
there are none, the prompt‘ : ’ is issued and the 
monitor awaits the next command. 

Software can be loaded into a PROM in as small 
increments as you desire provided it is added to pre- 
viously unused areas of the PROM. 

This is done by first using the Move command, 
M, to transfer the current contents of the PROM down 
to RAM, adding the new software to an area of RAM 
which corresponds to the unused portion of the PROM 
and finally- using the Program command, P, to re- 
program the PROM with the result. 

Although the entire PROM must always be pro- 
grammed, it never hurts to re-write the same data 
over again. 

In general, a 1 may be written over a 1, a O over 
either a 1 or a 0, but the only way to change 0’s to 1’s 
is to erase the PROM with appropriate UV light. (See 
the BYTESAVER manual for details.) 


READ 





[12] R destination-addr destination-end (CR) 
or 
R destination-addr S swath-width (CR) 


Read binary or ASCII input from paper tape 
reader or console and store in memory from destination- 
address through destination-end. After destination-end 
has been filled, the monitor prompts for the next 
command. 


SUBSTITUTE MEMORY 
[13] SM address (CR) 


Substitute Memory desplays the contents of 
address and outputs a dot, ‘ >, as a prompt for the 
substituted value. If no change is desired, type a 
space or another dot. Otherwise, enter the new value. 
The monitor accepts hex digits until it gets a delimiter, 
such as a space, dot, or carriage-return retaining the 
last two digits entered as the value. Unless the delimiter 
is a carriage-return, the monitor outputs the contents 
of the next sequential memory location with a dot 
prompt. A carriage-return terminates the command. 


SUBSTITUTE REGISTER 
[14]S register-name (CR) 


Register-name may be A, B, C, D, E, F, H (HL), I, 
N (state of the Z80 interrupt flip-flop), P (PC), S (SP), 
A’, B',C', D', E', F’, H' (HL), X (TX), or ¥ (TY). 

This command prints the name of the user-register 
requested, displays its contents, outputs a dot,‘ . ’, as 
a prompt for the substituted value. If no change is 
desired, type a space or another dot. Otherwise, enter 
the new value. The monitor accepts hex digits until it 
gets a delimiter such as space, dot, or carriage-return 
retaining the last two digits (four digits for a 2-byte 
register). Unless the delimiter is a carriage-return, the 
monitor prints the name and contents of the next 
register followed by the dot prompt. A carriage return 
terminates the command. 


UART SELECT 


[15] U device-name (CR) 


Device-name may be A or B. The Cromemco 
TUART has two UARTs. When the monitor is entered 
via reset, UART A is selected for its input/output 
channel. This command allows the user to change the 
UART selection. It is often used in the multiple com- 
mand mode (see page 2). 


VERIFY 
[16] V source-addr source-end destination-addr (CR) 


or 
V source-addr S swath-width destination-addr (CR) 
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Verify that the block of memory between source- 
address and source-end contains the same values as the 
block beginning at destination-address. The addresses 
and contents are printed for each discrepancy found 
(unless the print-out is terminated by ESCAPE or ALT 
MODE). 

This command works by reading bytes from the 
source and destination and comparing them. If a dis- 
crepancy is found, the memory is read again for print- 
out. Thus, it can happen that a discrepancy is printed- 
out with the source and destination contents indicated 
to be the same. This is caused by a defective memory 
element. 


WRITE 
[17] W source-addr source-end (CR) 


or 
W source-addr S swath-width (CR) 


Write binary or ASCII output from source-address 
through source-end to the current device (selected by 
the UART command). After source-end has been 
written, the monitor prompts for the next command. 

The Write command is useful for punching binary 
or ASCII paper tapes of the contents of memory 
and for looking at the ASCII contents of memory on 
the console. 

When punching a paper tape, it is usually desirable 
to punch series of nulls as leader and trailer. This can: 
best be done in conjunction with the Null command 
and the After operator. (See Multiple Commands for 
examples of this usage.) 
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EGO 


(G20) 
(O81) 
(@802) 
(Q@880) 
(@004) 
(0952) 
(0654) 
(9846) 
(G88) 


(Q@@G5) 
(@016) 
(8816) 
(G09OB) 


(9838) 
(9000) 
(@@05) 
(6806) 
(8807) 


(@QOD) 
(GBA) 
(@81B) 
(@87D) 


(FFFF) 
(FFFD) 
(FFFB) 
(FFF) 
(FFF7) 
(FFF5) 
(FFF3) 
(FFF1) 
(FFEF) 
(FFED) 
(FFEB) 
(FFEQ) 
(FFE7) 


(@@1A) 









































peau, 





GOG82 
8803 
GOB4 
G885 
GBB6 
O9B7 
G08 
O609 
0619 
O611 
GG12 
@813 
6014 
GB15 
G16 
6817 
6918 
8619 
GH20 
8821 
@G22 
6823 
OB24 
@825 
OB26 
6627 
8828 
6829 
6938 
9031 
0032 
8833 
8934 
8835 
0036 
6837 
0038 
GG39 
GB46 
6641 
OB42 
6643 
8844 
6845 
BO46 
GO47 
6048 
@B49 
O858 
@651 
8652 
6853 
8054 
6855 
8856 
8657 
0858 

















Program Listing 


. 
, 


; 


STAT: EQU 
DATA: EQU 
ACMNDP: EQU 
ABAUDP: EQU 
APARLP: EQU 
BCMNDP: EQU 
BPARLP: EQU 
DAV: EQU 
TBE: EQU 
NBRKPT: EQU 
BPSTOR: EQU 
TEMPS: EQU 
BPMRK: EQU 
’ 
RSTLC: EQU 
CASE: EQU 
B2F: EQU 
PF: EQU 
CRF: EQU 
CR: EQU 
LF: EQU 
ESC: EQU 
ALT: EQU 
; DISPLACEMENTS 
; 
DUPC: EQU 
DUAF: EQU 
DUBC: EQU 
DUDE: EQU 
DUHL: EQU 
DUSP: EQU 
DUIX: EQU 
DULY: EQU 
DUIN: EQU 
DUAF2: EQU 
DUBC2: EQU 
DUDE2: EQU 
DUHL2: EQU 
LENRGS: EQU 
ORG 


me ee te 


se 





B ;STATUS PORT, DEVICE A 

1 ;DATA PORT, DEVICE A 

2 ;COMMAND PORT, DEV. A 

g ;BAUD PORT, DEVICE A 

4 ;PARALLEL PORT, DEV. A 

52H ;COMMAND PORT, DEV. B 

54H ;PARALLEL PORT, DEV. B 

40H ;DATA-AVAILABLE MASK 

80H ;XMITTER-BUF-EMPTY MSK 

5 ;ALLOW ROOM FOR 

NBRKPT*4+2 ;BREAKPOINT STORAGE 

BPSTOR 

OBH ;USED TO MARK THE SET- 
;TING OF A BP IN BPSTOR. 

30H ;RST LOCATION 

B ; (REQUIRES UPPER-CASE) 

5 ;2-BYTE FLAG 

6 ;PRIME-ABLE REG FLAG 

7 ;CRLF FLAG 

QDH 

OAH 

1BH 

7DH 


FROM IX OF HI BYTE OF REG PAIRS 


-1 
-3 
=5 
-7 
-9 
=11 
=13 
=15 
-17 7I & THE INTERRUPT FF 
-19 
-21 
=2'3 
-25 


DUPC=DUHL2+2 


BEGOOH 


ENTER THE MONITOR FROM RESET. 

COLD START ENTRY. INITIALIZES THE UART 
AND ZEROES THE BREAKPOINT STACK POINTER. 
ALTERS THE A-REGISTER. SAVES ALL OTHER 


+ REGISTERS EXCEPT THE PROGRAM COUNTER, 


Z80 Monitor 


EGOB 
E@@2 
EQOA 
EG@5 
E®@86 


E@98 
E®@9 
EOOA 
EQ@C 


E@GE 
E@10 
E@12 
E@13 
E@15 


E@16 
E@19 
EG1B 
E@1D 


E@1E 
E@1F 
E@21 
E@ 23 
E@25 
E®@ 26 
E828 


E@29 
E@2B 


3E@1 
D346 
F5 
F5 
1842 


F5 


3E8@ 
183C 


DBOO 
E649 


DB@1 
co 


CDOEEQ 
28FB 
E67F 
C9 


F5 

DBOB 
E686 
28FA 


D391 
cg 


D354 
D352 


8859 
BGO9 
OG61 
0862 
8863 
0864 
8865 
G66 
G67 
G868 
G069 
027B 
@071 
8872 
8073 
0974 
0875 
0076 
@877 
8878 
0879 
G0B8G 
6881 
@682 
0883 
0084 
@285 
9886 
9087 
0888 
6089 
BB9B 
G691 
6892 
8893 
6894 
8895 
G896 
@897 
0098 
6699 
8168 
0101 
G12 
6193 
6104 
8165 
g186 
G167 
6168 
6169 
8116 
G111 
6112 
8113 
@114 
@115 


. 
tA 





BUT DOES NOT DISPLAY THEM. 


; 
CSTART: LD 


(2 i 


OUT 
PUSH 
PUSH 
JR 


A,l 

40H,A ;SELECT BANK @ 
AF ;SIMULATE UPC 

AF ; USER-F-REGISTER 
COMMON 


WARM START ENTRY. INITIALIZES THE BREAKPOINT 
STORAGE POINTER. SAVES ALL REGISTERS EXCEPT 
THE PROGRAM COUNTER, BUT DOES NOT DISPLAY THEM. 


START: PUSH 


PUSH 
LD 
JR 


CHECK INPUT & 


HKIN: IN 


AND 
RET 
IN 

RET 


GET CHARACTER 


BYTE: CALL 


JR 
AND 
RET 


AF SIMULATE UPC 
AF ;UAF 
A,80H ; FLAG: 


COMMON ;WARM-START ENTRY 


RETURN WITH DATA IF READY. 


A,STAT 
DAV 

Z 
A,DATA 


FROM INPUT. 


CHKIN 
Z,GBYTE 
7FH 


PRINT CHARACTER. 


; 
PBYTE: PUSH 
PBY1: IN 


HH se Se Ne Ne we 


wee te te 


AND 
JR 

POP 
OUT 
RET 


SELECT DEVICE 


AF 
A,STAT 
TBE 
Z,PBY1 
AF 
DATA ,A 


A & INITIALIZE ITS BAUD RATE. 


ENTER WITH A=1. : 


NIT: OUT 


OUT 


BPARLP,A ;SELECT DEVICE A 
BCMNDP,A ;RESET DEVICE B 
; [CONTINUE BELOW] 


INITIALIZE BAUD RATE OF THE CURRENT DEVICE. 





Z80_ Monitor ee ee 


O@116 ; 
0117 ; PUSH CARRIAGE-RETURN TO SELECT THE PROPER BAUD 
@118 ; RATE FOR THE CURRENT TERMINAL. (THE MAXIMUM 
@119 ; NUMBER OF CARRIAGE-RETURNS REQUIRED IS FOUR.) 
0120 ; 
@121 ; WITHE THE CROMEMCO TUART ANY OF THE FOLLOWING 
@122 ; BAUD RATES CAN BE SELECTED: 
@123 ; 19200, 9600, 4800, 2498, 1200, 300, 150, 1190. 
0124 ; 
0125 ; WITH THE 3P+S: 2408, 300, 1190. 
@126 ; 
0127 ; TWO CARRIAGE-RETURNS ARE REQUIRED FOR 
@128 ; ANY UART WITH A FIXED BAUD RATE. 
0129 ; 
E@2D 21A3E3 0130 INITBAUD: LD HL,BAUDRS 
E®30 BEDD @131 LD c,ABAUDP 
EQ 32 3E11 0132 LD A,11H ;OCTUPLE THE CLOCK 
B@34 D362 0133 ITl: OUT ACMNDP,A 7& RESET CURRENT DEVICE 
E936 EDA3 0134 OUTI 
E938 CD1OES 0135 CALL GBYTE 
E@3B CDI16E¢ 0136 CALL GBYTE 
E@3E FE@D 0137 CP CR 
E@40 3E61 0138 LD A,l ;SLOW THE CLOCK 
E042 20F@ 0139 JR NZ,iIT1l 
E@44 C9 0140 RET 
@141 ; 
@142 ; 
09143 ; BREAKPOINT ENTRY. INITIALIZES NOTHING. 
0144 ; SAVES ALL REGISTERS AND DISPLAYS THEM, 
0145 ; 
E@45 E3 0146 SVMS: EX (SP),HL ; ADJUST BRKPT 
E@46 2B O147 DEC HL ;RET ADDR 
E@47 §E3 0148 EX (SP) ,HL 
E@48 F5 149 PUSH AF ; UAF 
E@49 97 0158 SUB A ; FLAG: 
@151 ; ;BREAKPOINT ENTRY; 
0152 ; 
0153 ; 
E@4A C5 0154 COMMON: PUSH BC ; UBC 
E@4B 47 155 LD B,A ; ENTRY FLAG 
E@4C D5 0156 PUSH DE ; UDE 
E@4D E5 0157 PUSH HL ; UHL 
9158 ; 
@159 ; PLACE SYS STACK AT HIGHEST PAGE OF 
@16@ ; AVAILABLE RAM. 
0161 ; ALLOW ROOM FOR TEMP STORAGE. 
0162 ; 
E@4E 21E989 8163 LD HL,@OFFH-TEMPS 
E@51 25 0164 COM1: DEC H 
E@52 7E 0165 LD A, (HL) 
EQ@53 34 0166 INC (HL) 
E®@54_ BE 0167 CP (HL) ;DID IT CHANGE? 
E@55 28FA 0168 JR Z,COM1 
E@57 35 0169 DEC (HL) 7YES. RESTORE IT. 
0170 ; 
E058 78 0171 LD A,B ; ENTRY FLAG 
E@59 EB @172 EX DE,HL 
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2 
280 0 t r So SE SEES SESS TE 
EQ5A 219900 0173 LD HL,9 
E@5D 39 0174 ADD HL,SP 3; —-> UPC, HI BYTE 
E@5E G@18AGB @175 LD BC,19 
E@61 EDB8 0176 LDDR 
Q@177 ; 
E@63 13 @178 INC DE ;-> UHL,LO ON SYS STK 
E@64 EB 6179 EX DE,HL 
E@65 F9 0180 LD SP,HL ;CURRENT SYS SP 
E@66 EB 9181 EX DE,HL 
E967 @18BOG 0182 ED BC, DUPC-DUHL+3 
E@6A 69 0183 ADD HL,BC ;HL = USER SP 
E®6B ES 0184 PUSH HL ; USP 
E@6C DDE5 @185 PUSH IX ;UIX 
E@6E FDES 0186 PUSH IY ;ULY 
E@7@6 EB 0187 EX DE,HL 
E@71 69 8188 ADD HL,BC 
E@72 4D @189 LD CL ;SAVE 
E®@73 2B 2190 DEC HL 
E@74 E5 Q191 PUSH HL - 
E@75 DDE1 6192 POP IX 
E@77 FEQ1 0193 CP 1.* ;ENTRY? 
E®79 3887 Q194 JR C,COM3 - ;SKIP IF VIA BP. 
E@7B 71 G195 LD (HL) ,C ;BP PNTR, LO BYTE 
E97C 23 0196 INC HL 
E@7D 3680 0197 LD (HL) ,@ ;BP-STACK ENDMARK 
0198 ; INITIALIZE THE TUART IF ENTRY WAS VIA RESET. 
0199 ; (A CONTAINS 1.) 
O2860 ; 
E@7F CC29EO G2G1 CALL Z,INIT 
O202 ; 
EQ82 ED57 8283 COM3: LD A,I 
E@84 67 0204 LD H,A 
E@85 2E09 @285 LD L,@ 
EG@87 E28BE@ G206 JP PO,COM4 
E@8A 2C 0207 INC L 
E@®8B E5 288 COM4: PUSH HL ;UIN 
E®@8C 68 @289 EX AF,AF' 
E@8D F5 G21 PUSH AF ;UAF' 
EQ®8E 88 Q211 EX AF,AF' 
E@8F D9 9212 EXX 
E@9@ C5 0213 PUSH BC ;UBC' 
E991 D5 @214 PUSH DE ;UDE' 
E@92 =~ES @215 PUSH HL ;UHL' 
E@93 D9 @216 EXX 
@217 ; 
@218 ; IF CY IS SET, ENTRY WAS VIA A BREAKPOINT 
E@94 21F@E3 8219 LD HL,HEAD 
E@97 D4@FE2 G@220 CALL NC,PMSG 
E@9A 81865@ 0221 LD BC,[['P'+CASE] SHL 8]+86H ;IF BP ENTRY, 
E@9D DC23E3 0222 CALL C,SUBR3 ;DISPLAY THE PC. 
@223 ; 
Q@224 ; 
@225 ;CLEAR ALL BREAKPOINTS 
@226 ; 
Q@227 ; 
E®A® DDE5 @228 CLBP: PUSH IX 
E®A2 El @229 POP HL ;POINTS TO BPSP,LO 





























I 



































11 


(i 





il 
i 


i 
(tty 
H 
; 
\ 
\) 


Z80 Monitor 


(in 
tlt 


i 
li 
ll 


til 
lh 
iN 
(il 
iN 
ti 
(jt 
i 


EGA3 6E 0230 LD L, (HL) ;BPSP NOW IN HL 
@231 ; 
EG@A4 7E @232 CLl: LD A, (HL) ;BP STK EMPTY? 
E@A5 FEB 0233 CP BPMRK ; IF BPMRK, BP IS SET 
E@A7 200A G234 JR NZ,CL2 
0235 ; 
E®A9 34 0236 INC (HL) ;BP-ERASED MARK 
E@AA 2B 6237 DEC HL 
E®AB 56 G238 LD D, (HL) 
E@AC 2B G239 DEC HL 
E@AD 5E G24 LD E, (HL) 
E®AE 2B G241 DEC HL 
E®AF EDA8 G@242 LDD ;RESTORE MEM CONTENTS 
E®@B1l 18F1 6243 JR CL1 
G@244 ; 
E@B3 7D @245 CL2: LD A,L 
E@B4 2B 0246 DEC HL 
EQ@B5 77 Q247 LD (HL) ,A ;ADJUST BPSP 
9248 ; 
E@B6 Il1E6FF G249 LD DE,-LENRGS ;FOR THE BENEFIT 
E@B9 19 G25 ADD HL,DE ;OF ERROR & ESCPE 
E@BA  F9 G251 LD SP,HL ;RE-INITIALIZE SP 
9252 ; 
@253 ; 
@254 ; GET 1-BYTE COMMAND. 
9255 ; RETURNS VALUE IN HL & JUMPS TO THAT ADDR. 
@256 ; 
E@BB CD4DE1 @257 CALL CRLF 
E®@BE l1BEE@ @258 CMND: LD DE,CMND ;SET-UP RETURN 
E@Cl D5 @259 PUSH DE 
E@C2 21AEE3 @268 CMND1: LD HL,PRMPT ; RE-ENTRY POINT 
E@C5 CDOFE2 0261 CALL PMSG 7FOR RECURSION 
@262 ; HL NOW PNTS TO THE COMMAND TABLE. 
@263 ; 
@264 ; GET THE COMMAND. 
@265 ; DE GETS THE FIRST ALPHA CHAR LESS 'D'. 
Q266 ; 
E@C8 CDDDE1 $267 CALL SKSG@ 7;GET NON-SPACE 
E®CB C8 0268 RET Z ;IF CR, IGNORE. 
E@CC D644 @269 SUB "D'+CASE =< DT? 
E@CE 3815 0270 JR C,ERROR 
E®@D@ FE14 @271 CP 'w'-'D'+1 7 > ‘wl? 
E@D2 3911 @272 JR NC,ERROR 
EOD4 5F 9273 LD E,A 
EO@D5 1608 — G274 LD D,@ 
Q@275 ; 
E@D7 4A 6276 LD C,D ; INITIALIZE FOR SUBR 
E@D8 EB Q277 EX DE,HL 
E@D9 29 $278 ADD HL,HL ;TIMES 2 
EQDA 19 @279 ADD HL,DE ; + TBL ADDR 
E@DB 5E G28 LD E, (HL) 
E@DC 23 G281 INC HL 
E@DD 56 G282 LD D, (HL) 
E@DE EB 0283 EX DE,HL 
E@DF CDDDE1 G284 CALL SKSG@ ;NEXT CMND GHAR 
E®E2 FE4D @285 CP "M'+CASE ; (USED IN SUBST & DISPL) 
E®@E4 E9 0286 JP (HL) 
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E@E5 
EGE7 
E@EA 


E®EC 
E@EFP 
EGFO 
EGF1 
EOF3 
EGF4 
EOFS 


EQF7 
EGF8 
EQFB 
E@FC 
EGFF 
E109 
£11 
E102 
E183 
E105 
E106 


E168 
E16B 


E1@C. 


E1OF 


Ello 


E112 
E113 
E115 


3E3F 
CD12E1 
18B4 


CDA5E1 
78 

B2 
E663 


Bl 


B3 
20EE 


E5 
214661 
B3 
CDIAE2 
E3 

2B 

7C 

B5 
20F6 
El 
1861 


CDECE1 
2B 
CDECE1 
2B 


3E20 


F5 
E67F 
FE1B 





@287 
6288 
9289 
G298 
G291 
G292 
@293 
g294 
G295 
G296 
G297 
8298 
@299 
6308 
8301 
03682 
G303 
8304 
83085 
63B6 
9307 
G308 
8309 
8318 
6311 
6312 
§313 
6314 
@315 
8316 
6317 
8318 
@319 
8320 
6321 
Q322 
8323 
8324 
8325 
8326 
@327 
8328 
8329 
0330 
6331 
0332 
9333 
6334 
8335 
0336 
Q337 
8338 
6339 
G34 
6341 
6342 
8343 


7 

; ERROR & ESCAPE. 

; POINTING TO SAVED-REG AREA 
7 

E 





My 
typ 
(ii) 
d 
| 
(ty 
i) 
5 
5 
\ 
\) 


: 


Tm 
| 


tin 

{ill 

{ 
Wl 


(ut 
th 
(tlt 


RETURNS TO CMND WITH SP 


(UHL'). 


RROR: LD Aeite! 
CALL PCHR 
ESCPE: JR CLBP ;CLEAR ANY BRKPTS 
i 
’ 
; PROGRAM PROMS. ABORTS IF DESTINATION 
; IS NOT ON A 1K (48@H) BOUNDARY, OR IF SWATH 
; WIDTH IS NOT A MULTIPLE OF 1K. 
; 
PROG CALL L3NCR 
LD A,B ;ARE INCREMENT & 
OR D ;DESTINATION BOTH 
AND 3 ;MULTIPLES OF 
OR Cc 31024? 
OR E 
ERRV1: JR NZ ,ERROR ;ERROR VECTOR 
PUSH HL ; SOURCE 
LD HL,32@ ;# OF ITERATIONS 
PR1: EX (SP) ,HL 
CALL MVE ;MOVE IT 
EX (SP) ,HL 
DEC HL ; ITERATION CT 
LD A,H 
OR L 
JR NZ,PR1 
POP HL 
JR VRFY ; VERIFY IT 
; PRINT THE 2 BYTES IN (HL) & (HL-l). 
; DECREMENTS HL BY 2. ALTERS A, 
; PRESERVES OTHER REGS. 
P2NMS: CALL PNM 
DEC HL 
CALL PNM 
DEC HL ; (CONTINUE BELOW) 
; PRINT SPACE. ALTERS A. 
SPACE: LD A,20H ; (CONTINUE BELOW) 
; 
; PRINT THE CHARACTER IN THE A-REGISTER. 
; (CHKS INPUT FOR ESC.) PRESERVES ALL REGS, 
PCHR: PUSH AF ;SAVE THE CHAR 
PCL: AND 7FH 
CP ESC 


13 





iI 
b 
y 


I 

(in) 

fli 
6 
i) 


, 
} 
"il 

M 


Z80 Monitor 


ith 

| 
(ly 
rm 
m 
a 
(| 


(tl 
(il 
( 


E117 28D1 0344 JR Z,ESCPE 
E119 FE7D 0345 CP ALT 7; ALT MODE? 
E11B 28CD 0346 JR Z,ESCPE 
E11D CD@EES @347 CALL CHKIN 
E120 20F1 0348 JR NZ,PC1l 
0349 ; 
E122 Fil 9358 PC2: POP AF 
E123 £5 6351 PUSH HL 
E124 F5 @352 PUSH AF 
E125 E67F 0353 AND 7FH 
E127 CDLEE@ 0354 CALL PBYTE 
El2A 21ABE3 0355 LD HL,LFNN 
E12D FE@D 0356 CP CR 
El2F CC@FE2 0357 CALL Z,PMSG 
E132 FE3C 0358 CP Poe ; RECURSIVE CALL 
E134 200B 0359 JR NZ,PC3 7;ON CMND? 
E136 Fl 0360 POP AF 
E137 3E@D 0361 LD A,CR ; YES. CONVERT 
E139 F5 0362 PUSH AF :;'<' TO A CR. 
El13A D5 0363 PUSH DE 
B13B C5 0364 PUSH BC 
E13C CDC2E@ @365 CALL CMND1 
E13F Cl 0366 POP BC 
E148 Dl 8367 POP DE 
E141 Fl @368 PC3: POP AF 
El42 El 0369 POP HL 
E143 c9 2370 RET 
@371 ; 
0372 ; 
0373 ; GET CHARACTER. RETURNS IT IN A. 
0374 ; ALTERS F. 
0375 ; 
E144 CDI16E¢ @376 GCHR: CALL GBYTE 
E147 CD12E1 0377 CALL PCHR 
El4A 28F8 0378 JR Z,GCHR ;IF NULL DON'T RETURN 
El4cC C9 0379 RET 
0380 ; 
0381 ; 
9382 ; CRLF. ALTERS A ONLY. 
0383 ; 
El4D 3E@D @384 CRLF: LD A,CR 
E14F 18Cl @385 JR PCHR 
0386 ; 
0387 ; 
0388 ; LOADS HL WITH SOURCE ADDR, BC & DE 
0389 ; WITH THE INCREMENT. ENDS WITH A CRLF. 
0390 ; 
E151 97 @391 L2NCR@: SUB A 
0392 ; 
E152 CD8BE1 @393 L2NCR: CALL LD2N 
0394 ; 
@395 ; SKIP INITIAL SPACES. 
@396 ; IF DELIMITER NOT A CR, ERROR 
Q397 ; 
E155 CDDEE1 @398 SKSGCR: CALL SKSG ;WAIT FOR NON~SPACE 
E158 209B 0399 JR NZ,ERRV1 7; IF NOT CR, ERROR 
E15A EB B48 EX DE,HL 
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Z80 Monitor 


E15B 


E15cC 


E15F 
E162 
E164 


E166 


E169 
E16A 
E16C 
E16D 
E17@ 
E173 
E174 
E177 
E17A 
E17D 
E17E 
E17F 
E18@ 
E181 


E183 
E186 
E189 


E18B 
E185 
E18F 
E192 
E194 


c9 


CD4DE1 


CDF2E1 
3E3A 
18AC 


CDA5E1 


1A 
EDAI 
2B 
C4F2E1 
C4E9E1 
EB 
C4E9E1 
C4EFE1 
C44DE1 
EB 

23 

13 

E@ 
18E6 


CDA5E1 
CD1AE2 
18DE 


CDAEE1 
EB 
CDDEE1 
FE53 
2085 


0461 
9402 
9403 
9404 
0405 
9406 
9497 
9408 
0409 
0418 
0411 
6412 
9413 
g414 
9415 
9416 
9417 
9418 
9419 
9420 
6421 
9422 
9423 
g424 
9425 
9426 
9427 
9428 
9429 
9430 
6431 
9432 
9433 
0434 
9435 
9436 
9437 
9438 
9439 
9440 
9441 
0442 
9443 
g444 
9445 
0446 
0447 
9448 
9449 
9456 
0451 
9452 
8453 
0454 
0455 
0456 
0457 


RET 


we See Ne we 


PCADDR: CALL 


, 

PADDR: CALL 
LD 
JR 


= 


COMMAND 


<j~e se Ne 


ERIF: CALL 


se se tees 


RFY: LD 
CPI 
DEC 
CALL 
CALL 
EX 
CALL 
CALL 
CALL 
EX 
INC 
INC 
RET 
JR 


COMMAND 


eT 


OVE: CALL 
CALL 
JR 


ADDR, Nl. 


[te 0 Ne se Se Ne Ne se we 


D2N: CALL 
EX 
CALL 
CP 
JR 


SOURCE IN HL, 


LOAD TWO NUMBERS. 





PRINT THE NUMBER IN HL, 
PRESERVES ALL REGISTERS EXCEPT A. 


CRLF 


PNHL 
Ae tasee 
PCHR 


L3NCR 


A, (DE) 


HL 
NZ,PNHL 
NZ,PSNM 
DE,HL 
NZ,PSNM 
Nz,PSNHL 
NZ,CRLF 
DE,HL 

HL 

DE 

PO 

VRFY 


L3NCR 
MVE 
VRFY 


FOLLOWED BY A COLON. 


;GET 3 OPERANDS 


COMPARES TWO AREAS OF MEMORY. 
DESTINATION IN DE & COUNT 
IN BC. ALTERS ALL REGISTERS. 


ENTER WI 


TH 


;COMPARE TO SOURCE 


;PRINT SOURCE ADDR 
& CONTENTS 


, 


r 


. 
’ 


& DEST CONTENTS 


& DEST 


IF BC=8, 


OPERANDS 


;MOVE IT 


ADDR 


DONE. 


LOADS DE WITH THE BEGINNING 


LOADS BC & HL WITH THE INCREMENT 
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GNHL 
DE,HL 
SKSG 
"S'+CASE 
NZ,L2N1 


;N1 TO HL, 


N2-N1+1l (OR WITH N2 IF THE OPR IS 'S'). 
RETURNS WITH LAST DELIMITER IN A, 


;SAVE Nl IN DE 
;GET NEXT NON-SPACE 


. 
, 


SWATH? 


DELIM TO A 





Z80 Monitor 


E196 
E199 


E19B 
E19E 
E19F 
E1lAl 
E1lA2 
E1A3 
E1lA4 


E1A5 


E1A8 
E1AB 


E1AD 


E1AE 
E1AF 


E1B2 


E1B5 
E1B8 
E1BB 
E1BE 
E1lcl 
E1C2 
E1C4 
E1C5 


CDADE1 
1897 


CDAEE1 
B7 
ED52 
23 

44 

4D 

cg 


CD8BE1 


CDAEE1 
18A8 


97 


C5 
2190008 


CDDEE1 


CDC6E1 
DAESE@ 
CD44E1l 
CDC6E1 
78 
30F7 
Cl 

co 





6458 
8459 
G46G 
6461 
6462 
0463 
8464 
8465 
8466 
@467 
0468 
G469 
G476 
8471 
8472 
@473 
@474 
6475 
G476 
8477 
8478 
6479 
0489 
G481 
8482 
8483 
6484 
8485 
G486 
8487 
$488 
6489 
8496 
6491 
G492 
8493 
8494 
6495 
G496 
6497 
8498 
@499 
B506 
O581 
0562 
0563 
G@504 
O565 
6586 
@507 
8588 
8569 
G51 
8511 
8512 
@513 
6514 


| 
ip 
i) 


b 
U 
, 
U 
) 
' 


| 
HT 
M 


i 
HT 
(it 
(li 
i 
hh 
th 
(il 
fF 
(i 


CALL GNHL@ ;YES. INCREMENT TO HL. 
JR L2N2 
L2N1: CALE GNHL ; INCREMENT 
OR A ;CLEAR Cy 
SBC HL,DE ;N2-N1 
INC HL ; INCLUDE END POINT 
L2N2: LD B,H 
LD rom & ;BC GETS THE INCRM 
RET 
: 
f 
; LOAD 3 OPERANDS. HL GETS THE SOURCE, BC 
; THE INCREMENT, AND DE THE 3RD OPERAND,. 
a 
L3NCR: CALL LD2N 
; (CONTINUE BELOW) 
; 
; ENTER WITH SPACE OR THE FIRST DIGIT 
; OF A NUMBER IN A. LOADS HL WITH 
; WITH A NEW NUMBER & THEN EXCHANGES 
; DE & HL. FINISHES WITH A CRLF, 
, 
LINCR: CALL GNHL ; SKIP SPACES, LOAD HL 
JR SKSGCR ;WAIT FOR A CR 
; CLEARS HL. IF ENTERED WITH HEX CHAR IN A, 
; SHIFTS IT INTO HL. O/W, IGNORES LEADING 
; SPACES. FIRST CHAR MUST BE HEX. CONTINUES 
; SHIFT UNTIL A NON-HEX CHAR RECEIVED & THEN 
; RETURNS WITH THE LATTER IN A. 
; PRESERVES B,C,D,E. 
; 
; 
GNHL@: SUB A 
, 
GNHL PUSH BC ; SAVE 
LD HL ,@ ;CLR BUFFER 
; STRIP LEADING SPACES & GET CHAR 
CALE SKSG 
; FIRST CHAR MUST BE HEX 
CALL HEXSH ;IF HEX, SHIFT INTO HL 
JP C,ERROR ;0/W, ERROR 
GN1: CALL GCHR 
CALL HEXSH ;I1F HEX SHIFT INTO HL 
LD A,B ;RESTORE CHAR 
JR NC,GNl ;IF HEX, CONTINUE 
POP BC ;IF NON-HEX, DONE 
RET 
; 
; IF A CONTAINS HEX CHAR, SHIFTS BINARY EQUIVALENT 
; INTO HL. IF NOT HEX, RET WITH CY SET. SAVES 
; ORIGINAL CHAR IN B 
f 
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E1lc6é 47 0515 HEXSH: LD B,A 

E1C7 D636 8516 SUB 'g' ; < '@'? 

E1c9 D8 9517 RET Cc 

El1CA C6E9 9518 ADD '@'-['G'+CASE] 

E1CC D8 @519 RET C 

E1CD DO6FA 0520 SUB "A'='G! 

E1CF 3683 @521 JR NC,HX1 ;OK IF >= 'A’ 
E1D1 C687 0522 ADD {'A'+CASE]-[('9'+1] 

E1D3 D8 6523 RET Cc 

E1D4 C6BA @524 HX1: ADD ‘Q'+1-'g' 


@525 ; THE A-REG NOW CONTAINS THE HEX DIGIT IN BINARY. 
@526 ; (THE HIGH-ORDER NIBBLE OF A IS @.) 


E1D6 29 @527 HXSH4: ADD HL,HL ;SHIFT 4 BITS INTO HL 
El1D7 29 0528 ADD HL,HL 
E1D8 29 @529 ADD HL,HL 
E1D9 29 0530 ADD HL,HL 
E1DA B5 0531 OR L 
E1DB 6F 9532 LD L,A 
E1DC C9 6533 RET 
0534 ; 
@535 ; 
@536 ; RETURNS WITH A NON-SPACE IN THE A-REG. 
@537 ; IF ENTERED WITH A-REG CONTAINING A NULL 
@538 ; OR A SPACE, GETS NEW CHARS UNTIL FIRST 
@539 ; NON-SPACE OCCURS. ALTERS AF. 
@546 ; 
E1DD 97 @541 SKSG@: SUB A 
542 ; 
E1LDE B7 @543 SKSG: OR A ;DOES A CONTAIN NULL? 
E1LDF cCC44El1 @544 SKl: CALL Z,GCHR 
El1E2 FE2@ 0545 CP 20H ;SPACE? 
E1E4 28F9 0546 JR Z,SK1 
El1E6 FE@D @547 CP CR 
ElE8 C9 0548 RET 
@549 ; 
0550 ; 
@551 ; 
8552 ; PRINT SPACE FOLLOWED BY THE NUMBER POINTED 
0553 ; TO BY HL. ALTERS A ONLY. 
@554 ; 
ElLEQ9 CDIG@E1 0555 PSNM: CALL SPACE 
556 ; (CONTINUE BELOW) 
@557 ; 
@558 ; PRINTS THE NUMBER POINTED TO BY HL. 
0559 ; PRESERVES ALL REGISTERS BUT A. 
0568 ; 
ELEC 7E @561 PNM: LD A, (HL) 
ElED 1888 0562 JR P2HEX 
@563 ; 
0564 ; 
@565 ; 
@566 ; PRINT THE NUMBER IN HL. 
@567 ; PRESERVES ALL BUT A, 
@568 ; 
ElEF cCDI9E1 0569 PSNHL: CALL SPACE 
0578 ; 
ElF2 7C 0571 PNHL: LD A,H 
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E1LF3 
E1F6 


E1F7 
E1FA 
E1FB 
E1FC 
E1FD 
E1FE 
E1FF 
E200 
E282 
E204 
E266 
E288 
E2@A 
E28D 
E28E 


E20F 
E219@ 
E211 
E212 
E215 
E216 
E218 
E219 


E21A 
E21B 
E21c 
E21D 
E21F 
E228 
E221 
E222 


CDF7E1 
7D 


CDFBE1 
1F 

1F 

LE 

1F 

1F 

P5 
E6OOF 
FEGA 
3882 
C667 
C636 
CD12E1 
Fl 

c9 


F5 
7E 
23 
CD12E1 


ES 
D5 
C5 
EDB@ 
Cl 
D1 
El 
C9 


6572 
9573 
0574 
8575 
G576 
@577 
0578 
@579 
0588 
@581 
8582 
8583 
G584 
6585 
G586 
0587 
8588 
8589 
8596 
@591 
@592 
G593 
g594 
6595 
8596 
G597 
9598 
@599 
G6G8B 
G681 
G682 
6663 
G684 
6685 
G606 
G687 
8688 
G69 
0619 
8611 
G612 
8613 
g614 
@615 
g616 
@617 
g618 
g619 
0626 
G621 
G622 
8623 
8624 
@625 
8626 
9627 
8628 





CALL 
LD 


a 
’ 
, 
, 
; 
P2HEX: CALL 
RRA 

P1lHEX: RRA 
RRA 

RRA 

RRA 
PUSH 

AND 

CP 

JR 

ADD 

PH1: ADD 
CALL 

POP 

RET 


ee Te Te ee Ti] 


PUSH 
PS1: LD 

INC 
CALL 
RLA 
JR 

POP 
RET 


as) 
= 
n” 
qQ) 


, 

; COUNT IN BC. 

f 

MVE: PUSH 
PUSH 
PUSH 
LDIR 
POP 
POP 
POP 
RET 


COMMAND 
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PRINT MESSAGE. 
IN HL. THE MESSAGE IS TERMINATED 
AFTER PRINTING A CHARACTER WHOSE 
PARITY BIT WAS SET. 

PRESERVES FLAGS, INCREMENTS HL. 


My 
3 
: 
i 
ity 


P2HEX 
A,L 
; (CONTINUE BELOW) 


PRINT THE NUMBER IN THE A~REGISTER. 
PRESERVES ALL REGISTERS. 


P1HEX 

AF 

OFH ; MASK 

19D 3; <= 9? 
C,PH1 

7 7A THRU F 
39H ;ASCII BIAS 
PCHR ;PRINT IT 
AF 


ENTER WITH ADDR OF MSG 


AF SAVE 
A, (HL) 
HL 
PCHR 

;LAST CHARACTER? 
NC,PS1 ;IF NOT, LOOP 
AF 


MOVE FROM ONE LOCATION TO ANOTHER. ENTER 
WITH SOURCE ADDR IN HL, DEST IN DE, BYTE 


PRESERVES ALL REGISTERS. 


HL 7 SOURCE 

DE ;DEST 

BC ;BYTE COUNT 
BC 

DE 

HL 


h 
’ 


Tm 
Tm 
Tm 
i! 


| 


I 
\) 
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6629 


0630 ; GO <CR> EXECUTION BEGINS AT USER PC. 
0631 ; 
0632 ; COMMAND 
9533 ; 
9634 ; GO <ADDR1>/<ADDR2> ... <ADDRN> 
0635 ; EXECUTION BEGINS AT ADDR1 WITH BREAKPOINTS SET 
8636 ; AT ADDR2,...,ADDRN. 
0637 ; 
0638 GO: 
0639 ; B GETS NBRKPT+1 (MAX. NUMBER OF BP + 1) 
@646 ; C, THE BREAKPOINT FLAG, GETS @ (NO BP SET) 
E223 G189886 @641 LD BC, [{NBRKPT+1] SHL 8]+@ 
E226 CDDEE1 @642 GOl: CALL SKSG ;WAIT FOR NON-SPACE 
E229 283A 0643 JR Z,RETN ;RETN IF CR 
E22B FE2F 0644 cP ay ;BP? 
E22D 2@@D 0645 JR NZ ,GO3 
E22F AF Q646 LD C,A ;SET BRKPT FLAG (2FH) 
E23@ 213008 0647 LD HL,RSTLC ; TRANSFER 
E233 36C3 0648 LD (HL) ,@C3H ;'JP SVMS' TO 
E235 214550 0649 LD HL,SVMS 
E238 223108 0658 LD (RSTLC+1) ,HL ;RST LOC 
E23B 97 8651 SUB A 
E23C CDAEE1 8652 GO3: CALL GNHL ;GET ADDR 
E23F CB69 0653 BIT eke ; FLAG SET? 
E241 EB G654 EX DE,HL 
B242 DDES5 9655 PUSH IX 
E244 El 2656 POP HL 
E245 2818 0657 JR Z,GO5 ;JUMP IF NO BP 
0658 ; 
E247 65 G659 DEC B ; IF TOO MANY BP, 
E248 CAESE@ B66 JP Z,ERROR ; ERROR. 
E24B 6E 0661 LD L, (HL) ;HL = BPSP 
@662 ; 
E24C 23 8663 INC HL ;BUMP BPSP 
E24D EB 0664 EX DE,HL ;DE=BPSP, HL= BP ADDR 
E24E EDAO @665 LDI 
E256 2B 0666 DEC HL 
E251 36F7 0667 LD (HL) ,@C7H+RSTLC ;RST INSTRUCTION 
E253 EB 0668 EX DE,HL ; HL=BPSP 
E254 73 0669 LD (HL) ,E ;BP ADDR TO STACK 
E255 23 0676 INC HL 
E256 72 0671 LD (HL) ,D 
E257 23 672 INC HL 
E258 36@B 0673 LD (HL) , BPMRK ; PUNCTUATION (BP SET) 
E25A DD75@@ G674 LD (IX) ,L 
E25D 18C7 0675 JR GOl 
0676 ; CHANGE USER PC 
E25F 2B @677 GOS: DEC HL 
E266 72 0678 LD (HL) ,D 
E261 2B 0679 DEC HL 
E262 73 G68B LD (HL) ,E 
E263 18Cl1 0681 JR Gol ; BACK FOR MORE 
0682 ; 
E265 El 0683 RETN: POP HL ; STRIP ADDR FROM STK 
E266 El 2684 POP HL ;UHL' 
E267 Dil 9685 POP DE ;UDE' 
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Z80 Mo 


E268 
E269 
E26A 
E26B 


E26C 
E26D 
E26F 
E278 
E272 


E273 
E275 
E277 


E278 
E27B 
E27C 
E27D 
E27E 
E27F 
E280 
E281 
E282 
E283 
E285 
E287 


E288 
E289 
E28A 
E28B 
E28C 


E28D 
E296 


E292 
E295 
E297 


Cl 
Fl 
D9 
08 


Fl 
ED47 
F3 
3061 


FDE1 
DDE1 
D1 


210A9B 
45 
39 
EB 
1B 
2B 
1A 
77 
BE 
26.83 
16F7 
F9 


El 
D1 
Cl 
Fl 
c9 


618041 
203F 


CD51E1 
161¢ 
CD5CE1 







































































0686 
@687 
8688 
8689 
G696 
8691 
8692 
$693 
G694 
8695 
8696 
@697 
8698 
H699 
G700 
8701 
0762 
8703 
8704 
8705 
@706 
8707 
0708 
6729 
G71 
@711 
@712 
0713 
@714 
6715 
0716 
O717 
6718 
8719 
8728 
@721 
0722 
6723 
8724 
8725 
0726 
Q727 
G728 
G729 
0730 
0731 
0732 
0733 
@734 
Q735 
0736 
8737 
0738 
@739 
G746 
8741 
6742 





POP BC UBC’ 
POP AF ;UAF! 
EXX 
EX AF,AF! 

v 
POP AF ;UIN 
LD I,A ; UL 
DI 
JR NC,RT1 
EI 

; IFF NOW RESTORED 

RT1: POP IY ;ULY 
POP IX ;UIX 
POP DE ;USP 


mee we MO Ne Ne 


COPY THE REMAINDER OF THE SYS STACK 
TO THE USER STACK. IF THIS TRANSFER 
IS MADE WITHOUT ERROR, SWITCH TO THE 
USER STACK. OTHERWISE, RETAIN THE 
SYSTEM STACK. 


LD HL,1@D 

LD B,L 

ADD HL,SP 

EX DE,HL 
RT2: DEC DE 

DEC HL 

LD A, (DE) 

LD (HL) ,A 

CP (HL) 

JR NZ,RT3 

DINZ RT2 

LD SP,HL 
RT3: POP HL 

POP DE 

POP BC 

POP AF 

RET 


COMMAND. DISPLAY REGISTERS. 
DR 
COMMAND. DISPLAY MEMORY. 


DM <STARTING ADDR> <ENDING ADDR OR SWATH> 


ISPL: LD BC, [['A'+CASE] SHL 8]+8@H ;[FOR DR} 
JR NZ ,SUBR2 ;IF NOT 'M', DR 
i 
DSPM: CALL L2NCR@ ;GET OPERANDS 
DSPM1: LD D,16 ;BYTE COUNT 


CALL PCADDR 7; ADDRESS 
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il 
yl 
tip 
ti 
i 
i 
i 
(it 
th 
Wl 


E29A CDE9E1 0743 DM2: CALL PSNM 7;MEM CONTENTS 
E29D EDAIL @744 CPI 7;INC HL & DEC BC 
E29F E24DE1 @745 JP PO,CRLF ‘ 
E2A2 15 6746 *~ DEC D 
E2A3 28FO 0747 JR Z,DSPM1 
E2A5 7A 748 LD A,D 
E2A6 E6@3 9749 AND 3 
E2A8 CC1OE1 0750 CALL Z,SPACE 
E2AB CC1@E1 @751 CALL Z,SPACE 
E2AE 18EA 0752 JR DM2 
0753 ; 
754 ; 
0755 ; COMMAND. SUBSTITUTE MEMORY LOCATION, 
0756 ; 7 
@757 ; SM <ADDR> 
@758 ; 
0759 ; COMMAND. SUBSTITUTE USER-REGISTER. 
0768 ; 
0761 3; S<REGISTER NAME> 
0762 ; 
@763 ; REGISTER NAMES: P [PC], S [SP], 
9764 ; A, F, B, C, D, E, H [HL], 
9765 ; I, N [IFF], X [IX], Y [IY], 
@766 ; A',F',B',C',D',E',H' [HL']. 
Q767 ; 
@768 ; 
E2B@ 2616 @769 SUBST: JR NZ,SUBR ;IN NOT 'M', SR 
0770 ; 
@771 ; 
E2B2 97 0772 SUBM: SUB A 
E2B3 47 0773 LD B,A ; 1-BYTE MASK 
E2B4 CDA8E1 0774 CALL LINCR 
E2B7 EB @775 EX DE,HL ;HL GETS ADDR 
E2B8 CCS5CE1 @776 SMl: CALL Z,PCADDR 
E2BB CC1#E1 @777 CALL Z,SPACE 
@778 ; PRINT CURRENT VALUE, REQUEST NEW VALUE & 
0779 ; PRINT IT IF GIVEN 
E2BE CD32E3 0780 CALL GSUBV 
E2Cl c8 0781 RET Z 7; IF CR, DONE. 
E2C2 23 G782 INC HL 
E2C3 3E07 0783 LD A,7 ; PRINT ADDRESS IF IT 
E2C5 Ad 0784 AND L 71S A MULTIPLE OF 8 
E2C6 18FQ@ 0785 JR SM1 
0786 ; 
@787 ; 
E2C8 47 0788 SUBR: LD B,A 
E2C9 CD44E1 0789 CALL GCHR 
E2CC FE27 0790 CP waned 
E2CE 28682 0791 JR NZ,SR2 
E2D0 OC @792 INC Cc 7TURN ON THE PRIME-FLAG 
E2D1 97 0793 SUBR2: SUB A 
E2D2 CD55El1 @794 SR2: CALL SKSGCR ;WAIT FOR CR 
E2D5 78 0795 SR3: LD A,B 
E2D6 D641 0796 SUB "A'+CASE ;CHECK THE RANGE 
E2D8 DAE5E@ 8797 JP C,ERROR 
E2DB FE19 0798 CP 'V'-TA+H] 
E2DD D2E5E@ 0799 JP NC,ERROR 
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E2E@ 
E2E1 
E2E3 
E2E6 
E2E7 
E2E8 
E2E9 
E2EB 
E2ED 
E2EF 
E2F1 
E2F3 
E2F5 
E2F7 
E2F9 
E2FA 
E2FB 
E2FC 
E2FD 
E3006 
E392 
E304 
E307 
E309 
E3@B 
E3@D 
E36F 
E312 
E313 
E315 
E316 
E318 
E31B 
E31c 
E31D 


E31E 
E31F 
E328 
E322 
E323 
E326 
E328 
E32A 
E32B 
E32D 
E32F 
E331 


SF 
1606 
21D7E3 
19 

7E 

B7 
2833 
LEGO® 
CB41 
2806 
CB76 
2829 
1E18 
EO1F 
83 

SF 

c5 

78 
CD12E1 
FE48 
3E4C 
CC12E1 
EE71 
CB41 
2882 
3E27 
CD12E1 
46 
DDE5 
El 
ED52 
CD32E3 
78 

Cl 

c8 


G4 
87 
36B3 
87 
CD4DE1 
3805 
G641 
OC 
18A8 
CB41 
28A4 
cg 


B800 
G8G1 
0862 
0863 
G8G4 
0865 
6806 
6807 
0808 
6809 
88108 
@811 
@812 
@813 
@814 
8815 
8816 
0817 
8818 
8819 
G8208 
G821 
0822 
@823 
6824 
8825 
8826 
G827 
8828 
6829 
6830 
0831 
6832 
8833 
0834 
6835 
@836 
0837 
8838 
0839 
G84B 
0841 
0842 
0843 
8844 
8845 
0846 
@847 
6848 
8849 
@850 
8851 
0852 
6853 
@854 
0855 
8856 


SR4: 


7 
SR6: 


SUBR3: 


SR8: 


ee Te i ee Ty 


LD 
LD 
LD 
ADD 
LD 
OR 
JR 
LD 
BIT 
JR 
BIT 
JR 
LD 
AND 
ADD 
LD 
PUSH 
LD 
CALL 
CP 
LD 
CALL 
XOR 
BIT 
JR 
LD 
CALL 
LD 
PUSH 
POP 
SBC 
CALL 
LD 
POP 
RET 


INC 
RLCA 
JR 
RLCA 
CALL 
JR 
LD 
INC 
JR 
BIT 
JR 
RET 





E,A 
D,@ 
HL,RGTBL 
HL,DE 

A, (HL) 

A 

Z,SR6 

E,@ 

a,C 

Z,SR4 

PF, (HL) 
Z,SR6 
E,DUAF-DUAF2 
1FH 

E 

E,A 

BC 

A,B 

PCHR 
'H'+CASE 
A,'L'+CASE 
Z,PCHR 
'L'+CASE XOR 
B,C 

Z,SR5 
Bela 
PCHR 

B, (HL) 

EX 

HL 

HL,DE 
GSUBV 

A,B 

BC 

Z 


B 
NC,SR3 


CRLF 

C,SR8 
B,'A'+CASE 
(e 

SR3 

H,C 

Z,SR3 


;IF ENTRY = 
; PRIME? 


7; YES. 
;IF NOT, 


®, SKIP 


PRIMEABLE REG? 
SKIP. 


;STRIP FLAGS FROM ENTRY 


;SAVE 


7PRINT REG NAME 


';CLEAR CY, A 


; PRIME? 


ness 
;SAVE ORIGINAL ENTRY 


;STACK FRAME 


7;HL -> USER REG 


; PRINT VALUE, 


; SAVE 


;DONE IF CR 


REQUEST NEW 


;NEXT REG 
:Y OR H? 

; IF NEITHER, LOOP 
;YES, IS IT Y? 


; [ENTRY FOR DISPLAYING PC 


7YES, 


IT IS Y. 


;TURN ON PRIME-FLAG 


sNO. 
;IF H, LOOP. 
;IT IS H'. 


ENTER WITH HL POINTING TO MEMORY & 
B CONTAINING THE 1-BYTE OR 2-BYTE FLAG. 
PRINTS SPACE, 


2-BYTE REGS, 


CONTENTS OF 


(HL), 


H OR H'? 


DONE. 


& ALSO (HL=-1) FOR 


GETS SUBSTITUTION VALUE & LOADS IT, 
RETURNS WITH Z-FLAG SET IFF THE DELIMITER IS 

A CARRIAGE-RETURN. 
PRESERVES BC & HL. 
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E332 
E335 
E337 
E339 
E33A 
E33D 
E33E 
E33F 
E341 
E343 
E346 
E349 
E34B 
E345 
E356 
E351 
E354 
E355 
E356 
E358 
E35A 
E35B 
E35C 
E35E 
E361 


E362 
E365 
E366 
E368 
E36A 
E36C 
E36E 


E36F 
E37® 
E372 


E373 
E376 
E379 
E37B 


CDECE] 
CB68 
2804 
2B 
CDECE1 
79 

B87 
380A 
3E2E 
CD12E1 
CD44E1 
FE2F 
DC12E1 
380C 
EB 
CDAEE1 
EB 

73 
CB68 
2882 
23 

72 
FE@D 
C410E1 
co 


CDA8E1 
7B 
FE@B 
20085 
3E8@ 
D304 
cao 


97 
D354 
C9 


CD52E1 
CD@EEG 
28FB 
77 


@857 
G858 
8859 
G86B 
G861 
$862 
0863 
G864 
@865 
8866 
6867 
8868 
6869 
8876 
6871 
0872 
8873 
0874 
0875 
6876 
@877 
8878 
@879 
8886 
6881 
6882 
0883 
6884 
@885 
8886 
6887 
9888 
G889 
G89@ 
G891 
8892 
G893 
0894 
6895 
0896 
8897 
8898 
8899 
B9BB 
6961 
G9B2 
8983 
6984 
69085 
0986 
O907 
8968 
69689 
6918 
6911 
6912 
6913 





CALL 
BIT 
JR 
DEC 
CALL 


GS1l: LD 


RLCA 
JR 
LD 
CALL 
CALL 
CP 
CALL 
JR 
EX 
CALL 
EX 
LD 
BIT 
JR 
INC 
LD 


GS3: CP 


UARTA: 


. 
‘ 
. 
’ 
. 
v 
: 
‘ 


7 
READB: 
RB1: 


CALL 
RET 


~-eSUBDM 88 7E 


COMMAND 
SELECT UART-A 


UA 
UB 


CALL 
LD 
CP 
JR 
LD 
OUT 
RET 


SUB 


OUT 
RET 


COMMAND 


) 
\ 
) 
i] 
4 
) 
5 


Seam 
eI 


\ 
| 
| 


Cs 


i 


(it! 
Hy 
(lt) 


a4 
pnd 
ad 

— 


tk 
«Hy 
«qt 
il! 


Ml 
! 


s 


PNM 
B2F,B 

76s) 

HL 

PNM _ we 
Acc 


;PRINT (HL) 
;2-BYTE REG? 


;LO BYTE 

; SUBST-OR-DISPLAY FLAG 
Cc, Gs2 ;IF DISPLAY, EXIT. 
Rt 
PCHR 
GCHR 
me: 
C,PCHR 
C,GS3 
DE,HL 
GNHL 
DE,HL 
(HL) ,E 
B2F,B 
Z,GS3 

HL 

(HL) ,D 
CR 
NZ,SPACE 


; SUBSTITUTION? 
;IF NOT, PRINT ANOTHER. 


;NEW VALUE 


5 585 BY 5 198 DBE++ 


OR UART-B. 


LINCR 
A,E 

BH 
NzZ,UARTA 
A,89H 
APARLP ,A 


;A OR B? 


A 
BPARLP ,A 


READ -BINARY INPUT FROM DATA PORT 


CALL 
CALL 
JR 
LD 


23 


L2NCR ;GET MEM ADDRS 
CHKIN ;GET INPUT 
Z,RB1 

(HL) ,A ;TO MEM 


\ 
ul! 


Z80 Monitor 


E37C 
E37E 
E37F 


E381] 
E384 
E385 
E388 
E38A 
E38B 


E38D 
E398 
E391 
E392 
E395 
E397 


E398 
E39B 
E39C 
E39F 


E3A8 
E3A2 


E3A3 


E3AB 


E3AE 


EDA] 
EO 
18F5 


CD52E1 
7E 
CDLEEQ@ 
EDA1 
E@ 
18F7 


CDA8E1 
43 

97 
CD12E1 
16FB 
co 


CDAEE1 
EB 
CDA8E1 


4B 


ED69 
C9 


94CEA292 
88848261 


OAGB8B 


6914 
6915 
6916 
G917 
G918 
6919 
6928 
G921 
6922 
8923 
0924 
6925 
8926 
6927 
6928 
6929 
6936 
6931 
6932 
9933 
0934 
6935 
6936 
6937 
6938 
8939 
BI94G 
G94) 
G942 
B943 
8944 
g945 
8946 
6947 
G948 
6949 
G958 
@951 
9952 
6953 
@954 
6955 
6956 
@957 
G958 
G959 
8968 
6961 
6962 


6963 
6964 
6965 
966 
@967 
6968 
6969 





CPI 
RET PO 
JR RB1 
; 
i 
; COMMAND 
’ 


; 
WRITB: 


WRITE BINARY OUTPUT TO DATA PORT 


CALL L2NCR ;GET MEM ADDRS 
WBL: LD A, (HL) 
CALL PBYTE 
CPI 
RET PO 
JR WB1 
; COMMAND 
; PRINT NULLS ON THE CURRENT DEVICE. 
; N <NUMBER-OF-NULLS> 
NULLS: CALL LINCR 
LD B,E 
SUB A 
N2: CALL PCHR 
DINZ N2 
RET 
; COMMAND 
; OUT <DATA-BYTE> <PORT NNUMBER> 
OUTP: CALL GNHL 
EX DE,HL ;E GETS DATA 
CALL LINCR ;GET PORT NUMBER 
LD C,E ; TOC 
OUT (CPE 
RET 
; BAUD RATES. 
; WITH THE CROMEMCO TUART: 19200, 9600, 4800, 
; 2408, 1200, 300, 150, 119. 
; WITH THE 3P+S: 2400, 300, 119. 
BAUDRS: DB 94H,OCEH, @A2H,92H,88H,84H,82H,1 
LFNN: DB LF,@,@ OR 8H 


PRMPT: DB Meet 
; THE 
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OR 8@H 
COMMAND TBL MUST IMMEDIATELY FOLLOW 
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E3AF 
E3Bl 
E3B3 
E3B5 
E3B7 
E3B9 
E3BB 
E3BD 
E3BF 
E3Cl 
E3C3 
E3C5 
E3C7 
E3C9 
E3CB 
E3CD 
E3CF 
E3D1 
E3D3 
E3D5 


E3D7 
E3D8 
E3D9 
E3DA 
E3DB 
E3DC 
E3DD 
E3DE 
E3DF 
E3E@ 
E3E1l 
E3E2 
E353 
E3E4 
E3E5 
E3E6 
E3E7 
E3E8 
E3E9 
E3EA 
E3EB 
E3EC 
E3ED 
E3EE 
E3EF 


E3FO 


8DE2 
E5E@ 
E5E@ 
23E2 
E5E0 
2DE@ 
ESE@ 
E5E6 
E5E® 
83E1 
8DE3 
98E3 
ECE@ 
E5E@ 
73E3 
BOE2 
E5E@ 
62E3 
66E1 
81E3 


(6048) 
(O@28H) 
(8826) 
(O280) 


43 
45 
46 
47 
48 
44 
an) 
EQ 
ll 
a4) 
OB 
X4) 
86 
12 
OO 
21 
OO 
a) 
2B 
Oe 
0) 
) 
08 
2D 
AF 


@DOD4352 


4F4D454D 
434F205A 





0970 ; THE PROMPT MESSAGE 
9971 DW DISPL ;DISPLAY: DM, DR 

8972 DW ERROR 7E 

9973 DW ERROR :F 

g974 DW GO 7;GO; GO/WITH BREAKPOINTS 
8975 DW ERROR tH 

6976 DW INITBAUD ;INITIALIZE BAUD RATE 
0977 DW ERROR 7J 

8978 DW ERROR 7K 

0979 DW ERROR iL 

0982 DW MOVE ;MOVE A BLOCK OF MEMORY 
8981 DW NULLS :NULLS 

0982 DW OUTP ;OUTPUT 

2983 DW PROG ; PROGRAM 

0984 DW ERROR 70 

9985 DW READB ;READ BINARY OR ASCII 
0986 DW SUBST ;SUBSTITUTE: SM, SA, SB, 
0987 DW ERROR ;T 

0988 DW UART ;UART: UA, UB 

0989 DW VERIF ; VERIFY BLOCKS OF MEMORY 
£998 DW WRITB ;WRITE BINARY OR ASCII 
6991 ; 

@992 PM; EQU 1 SHL PF ; PRIMEABLE-REG MASK 
0993 BI1M: EQU Q ;1-BYTE REG MASK 

0994 B2M: EQU 1 SHL B2F ;2-BYTE REG MSK 

8995 CRM: EQU 1 SHL CRF ;CARRIAGE-RETURN MSK 
0996 3; 

@997 RGTBL: DB -~DUAF OR PM iA 

8998 DB -DUBC OR PM iB 

g999 DB -DUBC+l OR PM iC 

1802 DB ~DUDE OR PM :D 

1061 DB -DUDE+1 OR PM rE 

1602 DB -DUAF+1 OR PM iF 

1803 DB g 

1604 DB -DUHL OR PM OR B2M OR CRM ;H [HL] 

1605 DB -DUIN OR B1M i1 

1006 DB @ 

1067 DB g 

1008 DB Q 

1099 DB Q 

1810 DB -DUIN+1] OR BIM ;N [INTERRUPT FF] 

1011 DB g 

1412 DB -DUPC OR B2M ;PC 

1613 DB Q 

1014 DB Qg 

1915 DB -DUSP OR B2M ;SP 

1616 DB @ 

1817 DB g 

1018 DB @ 

1019 DB @ 

1020 DB -DUIX OR B2M 7X [IX] 

1021 DB -DUIY OR B2M OR CRM ;Y [IY] 

1822 ; 

1023 ; 

1024 HEAD: DB CR,CR,'CROMEMCO ZM1.','4' OR 86H 
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4D312EB4 
1825 ; 


Errors 
Range Count 


Qe 


Symbol Table 


ABAUDP ACMNDP ALT APARLP B1M GBOO 
B2F B2M BAUDRS BCMNDP BPARLP @@54 
BPMRK BPSTOR CASE CHKIN CL1 E@A4 
CL2 CLBP CMND CMND1 COM1 E@51 
COM3 COM4 COMMON CR CRF 0807 
CRLF CRM CSTART DATA DAV O0H40 
DISPL DM2 DSPM DSPM1 DUAF FFFD 
DUAF2 DUBC DUBC2 DUDE DUDE2 FFE9 
DUHL DUHL2 DUIN DUIX DULY FFFI 
DUPC DUSP ERROR ERRV1 ESC @61B 
ESCPE GBYTE GCHR GN1 GNHL E1AE 
GNHL@ GO GOl GO3 GO5 E25F 
GSsl GS2 GS3 GSUBV HEAD E3F@ 
HEXSH HX1 HXSH4 INIT INITBA E@2D 
ITl LINCR L2N1 L2N2 L2NCR E152 
L2NCRO L3NCR LD2N LENRGS LF OOOA 
LFNN MOVE MVE N2 NBRKPT 6805 
NULLS OUTP P1lHEX P2HEX P2NMS E188 
PADDR PBY1 PBYTE PCl PC2 E122 
PC3 PCADDR PCHR PF PH1 E208 
PM PMSG PNHL PNM PRl E®@FB 
PRMPT PROG PS1 PSNHL PSNM E1E9 
RB1 READB RETN RGTBL RSTLC 0038 
RT1 RT2 RT3 SKl SKSG E1DE 
SKSGO SKSGCR SM1 SPACE SR2 E2D2 
SR3 SR4 SR5 SR6 SR8 E32D 

. STAT SUBM SUBR SUBR2 SUBR3 E323 
SUBST SVMS TBE TEMPS UART E362 
UARTA VERIF VRFY WB1 WRITB E381 
WSTART 
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ABAUDP 
ACMNDP 
ALT 
APARLP 
B1M 
B2F 
B2M 
BAUDRS 
BCMNDP 
BPARLP 
BPMRK 
BPSTOR 
CASE 
CHKIN 
cLl 
CL2 
CLBP 
CMND 
CMND1 
COM1 
COM3 
comM4 
COMMON 
CR 

CRF 
CRLF 
CRM 
CSTART 
DATA 
DAV 
DISPL 
DM2 
DSPM 
DSPM1 
DUAF 
DUAF2 
DUBC 
DUBC2 
DUDE 
DUDE2 
DUHL 
DUHL2 
DUIN 
DUIX 
DUIY 
DUPC 
DUSP 
ERROR 


ERRV1 
ESC 
ESCPE 
GBYTE 
GCHR 
GN1 
GNHL 
GNHL@ 


OOO7 
BOGE 
8828 
GO88 
6993 
@621 
G994 
0962 
BO09 
09198 
0617 
@615 
8026 
8881 
@232 
@245 
8228 
6258 
O268 
G164 
0203 
6268 
G154 
BO25 
6023 
8384 
8995 
BR61 
@885 
@811 
@736 
8743 
8749 
O741 
6634 
OG42 
8035 
8643 
0836 
8044 
8037 
B845 
OG641 
8839 
OB4B 
88633 
0638 
B292 


8368 
8627 
G294 
0898 
8376 
6583 
6496 
G494 


8131 
6133 
8345 
8899 
1605 
0859 
1604 
0130 
G111 
6116 
6233 
8816 
G221 
BBID 
G243 
0234 
6294 
8258 
8365 
8168 
9194 
G206 
8265 
6137 
@995 
@257 
1084 


6884 
8082 
6971 
6752 


8747 
@812 
6812 
8998 


1868 


6182 
OB47 
1085 
1020 
1821 
6847 
1615 
0270 
6984 
399 
8343 
@344 
GO91 
0378 
8566 
8452 
8458 





1816 
0876 
1812 


B93 
6673 


G269 
@347 


00876 
@356 


G467 
1921 


8163 


6997 
6999 
10@1 
1894 


161¢ 


6182 
Q272 
6987 


8346 
G135 
6583 


8461 





Cross Reference 





8994 
1615 1928 1921 


8285 @455 6518 8522 8736 8796 6819 9828 8822 6842 
6911 


0361 9384 0547 6888 1824 1024 


436 0745 8840 


1082 


1612 


0388 @562 8668 86797 8799 8972 8973 6975 B977 B978 8979 


6136 8376 
@544 8789 868 


@482 80652 0873 9946 
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GO 
Gol 
GO3 
GO5 
GSl 
GS2 
GS3 
GSUBV 
HEAD 
HEXSH 
HX1 
HXSH4 
INIT 
INITBA 
ITl 
LINCR 
L2N1 
L2N2 
L2NCR 
L2NCRG 
L3NCR 
LD2N 
LENRGS 
LF 
LFNN 
MOVE 
MVE 
N2 
NBRKPT 
NULLS 
OUTP 
P1lHEX 
P2HEX 
P2NMS 
PADDR 
PBY1 
PBYTE 
PCl 
PC2 
PC3 
PCADDR 
PCHR 
PF 
PH1 
PM 
PMSG 
PNHL 
PNM 
PR1 
PRMPT 
PROG 
PS1 
PSNHL 
PSNM 
RB1 
READB 
RETN 


8638 
6642 
0652 
8677 
$863 
8878 
G88H 
6858 
1624 
6515 
8524 
6527 
8118 
G13 
§133 
B4A82 
6461 
8465 
0393 
6391 
8473 
@452 
0047 
B826 
6965 
6446 
6618 
8938 
@614 
6935 
@946 
@581 
8579 
@327 
B409 
9899 
86898 
8342 
8358 
6368 
G407 
6341 
8622 
6598 
8992 
B604 
0571 
@561 
8312 
8968 
8382 
8605 
8569 
@555 
6911 
0918 
8683 


8974 
8675 
@645 
@657 
G86B 
G865 
0871 
6788 
6219 
O581 
G521 


8201 
0976 
8139 
8774 
8456 
8459 
0910 
B74G 
8362 
8393 
G249 
6965 
6355 
8980 
6313 
6939 
@615 
G981 
6982 
9579 
6562 


6101 
8354 
8348 


8359 
8742 
0293 
8816 
6588 
0997 
G22G 
B49 
@327 
8318 
6260 
8983 
B6B9 
8429 
6426 
G912 
6985 
8643 





8681 


6877 
8831 


B504 


8894 


6922 


8416 
8473 


G441 


G641 


6572 


6924 


8776 
6377 
6992 


6998 
6261 
8425 
$329 


6428 
8916 


6935 6948 


G44G 


6385 9411 8591 8607 8818 8821 8826 8867 B878 G938 


6999 109860 1601 1982 1904 
Q357 


858 0862 


6743 
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RGTBL 6997 8862 
RSTLC 0819 647 B658 B667 


RT1 8697 6694 
RT2 8711 6717 
RT3 6720 8716 
SKl 8544 6546 


SKSG @543 398 8454 6499 9642 
SKSG@ 541 9267 9284 
SKSGCR 9398 6483 9794 


SM1 6776 6785 

SPACE 8335 @555 8569 8758 6751 8777 6881 
SR2 8794 $791 

SR3 8795 6838 #844 9846 
SR4 @813 6869 

SR5 8826 9824 

SR6 0836 9886 8811 

SR8 8845 8841 

STAT 6224 8881 9899 

SUBM 6772 

SUBR @788 9769 


SUBR2 @793 8737 
SUBR3 8848 98222 
SUBST 8769 8986 


SVMS 8146 #649 
TBE 8812 81808 
TEMPS @616 9163 
UART 8894 9988 


UARTA 992 6897 

VERIF 6416 9989 

VRFY @422 9328 6435 9442 
WBl 6923 9927 

WRITB 6922 6998 

WSTART 9073 
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